UNIT Point; 

interface
type
TPoint=object
	
	procedure setX(xViene:Integer);
	function getX:integer;
	procedure setY(yViene:Integer);
	function getY:integer;
END;
VAR
	x,y: integer;
	
IMPLEMENTATION
	procedure TPoint.setX(xViene:Integer);
	BEGIN
		x:=xViene;
	END;
	
	procedure TPoint.setY(yViene:Integer);
	BEGIN
		y:=yViene;
	END;

	function TPoint.getX:integer;
	BEGIN
		getX:=x;
	END;
	
	function TPoint.getY:integer;
	BEGIN
		getY:=y;
	END;
END.
